object frFORM: TfrFORM
  Left = 0
  Top = 0
  Caption = #1055#1088#1086#1073#1085#1072#1103' '#1092#1086#1088#1084#1072
  ClientHeight = 523
  ClientWidth = 730
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object DBGridEh1: TDBGridEh
    AlignWithMargins = True
    Left = 19
    Top = 8
    Width = 263
    Height = 288
    DataGrouping.GroupLevels = <>
    DataSource = dsProb
    Flat = False
    FooterColor = clWindow
    FooterFont.Charset = DEFAULT_CHARSET
    FooterFont.Color = clWindowText
    FooterFont.Height = -11
    FooterFont.Name = 'Tahoma'
    FooterFont.Style = []
    IndicatorOptions = [gioShowRowIndicatorEh]
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
    OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghIncSearch, dghPreferIncSearch, dghDialogFind, dghColumnResize, dghColumnMove, dghExtendVertLines]
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'Tahoma'
    TitleFont.Style = []
    Columns = <
      item
        EditButtons = <>
        FieldName = 'NOM_ABON'
        Footers = <>
        Title.Caption = #1050#1086#1076
        Width = 93
      end
      item
        EditButtons = <>
        FieldName = 'FIO'
        Footers = <>
        Title.Caption = #1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
        Width = 224
      end
      item
        EditButtons = <>
        Footers = <>
      end
      item
        EditButtons = <>
        Footers = <>
      end
      item
        EditButtons = <>
        Footers = <>
      end
      item
        EditButtons = <>
        Footers = <>
      end>
    object RowDetailData: TRowDetailPanelControlEh
    end
  end
  object dbeNOM: TDBEdit
    Left = 43
    Top = 306
    Width = 161
    Height = 21
    DataField = 'NOM_ABON'
    DataSource = dsProb
    TabOrder = 1
  end
  object dbeFIO: TDBEdit
    Left = 43
    Top = 333
    Width = 313
    Height = 21
    DataField = 'FIO'
    DataSource = dsProb
    TabOrder = 2
  end
  object cxButton1: TcxButton
    Left = 381
    Top = 302
    Width = 97
    Height = 25
    Caption = #1057#1086#1093#1088#1072#1085#1080#1090#1100
    TabOrder = 3
    OnClick = cxButton1Click
  end
  object cxButton2: TcxButton
    Left = 265
    Top = 302
    Width = 110
    Height = 25
    Caption = #1044#1086#1073#1072#1074#1080#1090#1100
    TabOrder = 4
    OnClick = cxButton2Click
  end
  object cxButton3: TcxButton
    Left = 484
    Top = 302
    Width = 97
    Height = 25
    Caption = #1048#1079#1084#1077#1085#1080#1090#1100
    TabOrder = 5
    OnClick = cxButton3Click
  end
  object cxButton4: TcxButton
    Left = 587
    Top = 302
    Width = 97
    Height = 25
    Caption = #1059#1076#1072#1083#1080#1090#1100
    TabOrder = 6
    OnClick = cxButton4Click
  end
  object edFIO: TEdit
    Left = 32
    Top = 391
    Width = 239
    Height = 21
    TabOrder = 7
    Text = 'edFIO'
  end
  object Button1: TButton
    Left = 294
    Top = 391
    Width = 101
    Height = 25
    Caption = #1048#1079#1084#1077#1085#1080#1090#1100
    TabOrder = 8
    OnClick = Button1Click
  end
  object edNOM_LIC: TEdit
    Left = 32
    Top = 418
    Width = 94
    Height = 21
    TabOrder = 9
    Text = 'edNOM_LIC'
  end
  object Button2: TButton
    Left = 401
    Top = 389
    Width = 101
    Height = 25
    Caption = #1057#1086#1093#1088#1072#1085#1080#1090#1100
    TabOrder = 10
    OnClick = Button1Click
  end
  object dsetPROB: TIBDataSet
    Database = dmOne.IBDBOne
    Transaction = dmOne.IBTROne
    DeleteSQL.Strings = (
      'delete from SPR_ABON'
      'where'
      '  NOM_ABON = :OLD_NOM_ABON')
    InsertSQL.Strings = (
      'insert into SPR_ABON'
      
        '  (D_OTKL, D_SVER, D_VKL, DAT, DATADOG, DOM, DOM2, FIO, KB, KB2,' +
        ' KL, KMASTER, '
      
        '   KOD_GAZ, KOD_GEU, KOD_OP, KOD_PUNKT, KOD_TRF, KOD_UL, KOD_VU,' +
        ' KOL_BPG, '
      
        '   KOL_JIL, KOL_KOTL, KOL_LGJ, KOL_PLIT, KORPUS, KWMETR, MNOGOET' +
        'G, NOM_ABON, '
      
        '   NORM_L, NORM_Z, OTKL, POK_AKT, PR_GW, PRIZ, RAZD_LIC, REZUME,' +
        ' TELDOM, '
      '   TELMOBIL)'
      'values'
      
        '  (:D_OTKL, :D_SVER, :D_VKL, :DAT, :DATADOG, :DOM, :DOM2, :FIO, ' +
        ':KB, :KB2, '
      
        '   :KL, :KMASTER, :KOD_GAZ, :KOD_GEU, :KOD_OP, :KOD_PUNKT, :KOD_' +
        'TRF, :KOD_UL, '
      
        '   :KOD_VU, :KOL_BPG, :KOL_JIL, :KOL_KOTL, :KOL_LGJ, :KOL_PLIT, ' +
        ':KORPUS, '
      
        '   :KWMETR, :MNOGOETG, :NOM_ABON, :NORM_L, :NORM_Z, :OTKL, :POK_' +
        'AKT, :PR_GW, '
      '   :PRIZ, :RAZD_LIC, :REZUME, :TELDOM, :TELMOBIL)')
    RefreshSQL.Strings = (
      'Select '
      '  NOM_ABON,'
      '  DATADOG,'
      '  D_SVER,'
      '  FIO,'
      '  TELMOBIL,'
      '  KOD_TRF,'
      '  KOD_UL,'
      '  TELDOM,'
      '  KOL_JIL,'
      '  RAZD_LIC,'
      '  KOL_LGJ,'
      '  KOD_GAZ,'
      '  KWMETR,'
      '  KOD_OP,'
      '  DAT,'
      '  KOL_PLIT,'
      '  KOL_BPG,'
      '  KMASTER,'
      '  KOL_KOTL,'
      '  PRIZ,'
      '  NORM_L,'
      '  NORM_Z,'
      '  KOD_PUNKT,'
      '  KOD_VU,'
      '  KL,'
      '  DOM2,'
      '  KORPUS,'
      '  KB,'
      '  KB2,'
      '  KOD_GEU,'
      '  OTKL,'
      '  REZUME,'
      '  POK_AKT,'
      '  D_VKL,'
      '  D_OTKL,'
      '  DOM,'
      '  PR_GW,'
      '  MNOGOETG'
      'from SPR_ABON '
      'where'
      '  NOM_ABON = :NOM_ABON')
    SelectSQL.Strings = (
      'select * from SPR_ABON')
    ModifySQL.Strings = (
      'update SPR_ABON'
      'set'
      '  D_OTKL = :D_OTKL,'
      '  D_SVER = :D_SVER,'
      '  D_VKL = :D_VKL,'
      '  DAT = :DAT,'
      '  DATADOG = :DATADOG,'
      '  DOM = :DOM,'
      '  DOM2 = :DOM2,'
      '  FIO = :FIO,'
      '  KB = :KB,'
      '  KB2 = :KB2,'
      '  KL = :KL,'
      '  KMASTER = :KMASTER,'
      '  KOD_GAZ = :KOD_GAZ,'
      '  KOD_GEU = :KOD_GEU,'
      '  KOD_OP = :KOD_OP,'
      '  KOD_PUNKT = :KOD_PUNKT,'
      '  KOD_TRF = :KOD_TRF,'
      '  KOD_UL = :KOD_UL,'
      '  KOD_VU = :KOD_VU,'
      '  KOL_BPG = :KOL_BPG,'
      '  KOL_JIL = :KOL_JIL,'
      '  KOL_KOTL = :KOL_KOTL,'
      '  KOL_LGJ = :KOL_LGJ,'
      '  KOL_PLIT = :KOL_PLIT,'
      '  KORPUS = :KORPUS,'
      '  KWMETR = :KWMETR,'
      '  MNOGOETG = :MNOGOETG,'
      '  NOM_ABON = :NOM_ABON,'
      '  NORM_L = :NORM_L,'
      '  NORM_Z = :NORM_Z,'
      '  OTKL = :OTKL,'
      '  POK_AKT = :POK_AKT,'
      '  PR_GW = :PR_GW,'
      '  PRIZ = :PRIZ,'
      '  RAZD_LIC = :RAZD_LIC,'
      '  REZUME = :REZUME,'
      '  TELDOM = :TELDOM,'
      '  TELMOBIL = :TELMOBIL'
      'where'
      '  NOM_ABON = :OLD_NOM_ABON')
    Left = 654
    Top = 10
  end
  object dsProb: TDataSource
    DataSet = dsetPROB
    Left = 692
    Top = 12
  end
  object dsFIO: TDataSource
    DataSet = dsetFIO
    Left = 558
    Top = 6
  end
  object dsetFIO: TIBDataSet
    Database = dmOne.IBDBOne
    Transaction = dmOne.IBTROne
    Left = 521
    Top = 6
  end
end
